home *** CD-ROM | disk | FTP | other *** search
/ MacHome 1999 February/March / MacHome CD (February and March 1999).iso / Edutainment / INFOHIGHWAYDEMOS / demo / GEN.DCR / 00482.ls < prev    next >
Encoding:
Text File  |  1998-12-02  |  2.3 KB  |  81 lines
  1. on exitFrame
  2.   go(the frame)
  3. end
  4.  
  5. on enterFrame
  6.   global ActiveHZone, lastRo
  7.   set ActiveHZone to "S5"
  8.   set startHZone to 2
  9.   set hZone1 to startHZone
  10.   set hZone2 to startHZone + 1
  11.   set hZone3 to startHZone + 2
  12.   set hZone4 to startHZone + 3
  13.   set hZone5 to startHZone + 4
  14.   set hzone6 to startHZone + 5
  15.   set ro to rollOver()
  16.   if (lastRo >= 17) and (lastRo <= 25) and (lastRo <> ro) then
  17.     cursor(-1)
  18.     puppetSprite(lastRo - 9, 0)
  19.   end if
  20.   set lastRo to ro
  21.   case ro of
  22.     hZone1:
  23.       initSprites()
  24.       go("OrdinateurS1")
  25.     hZone2:
  26.       go("OrdinateurS2")
  27.     hZone3:
  28.       initSprites()
  29.       go("OrdinateurS3")
  30.     hZone4:
  31.       initSprites()
  32.       go("OrdinateurS4")
  33.     hZone5:
  34.       initSprites()
  35.       go("OrdinateurS5")
  36.     hzone6:
  37.       initSprites()
  38.       go("OrdinateurS6")
  39.     17:
  40.       cursor([member "mousePointer", member "mousePointerMask"])
  41.       puppetSprite(17 - 9, 1)
  42.       set the member of sprite (17 - 9) to member "Or11HL"
  43.     18:
  44.       cursor([member "mousePointer", member "mousePointerMask"])
  45.       puppetSprite(18 - 9, 1)
  46.       set the member of sprite (18 - 9) to member "Or12HL"
  47.     19:
  48.       cursor([member "mousePointer", member "mousePointerMask"])
  49.       puppetSprite(19 - 9, 1)
  50.       set the member of sprite (19 - 9) to member "Or13HL"
  51.     20:
  52.       cursor([member "mousePointer", member "mousePointerMask"])
  53.       puppetSprite(20 - 9, 1)
  54.       set the member of sprite (20 - 9) to member "Or14HL"
  55.     21:
  56.       cursor([member "mousePointer", member "mousePointerMask"])
  57.       puppetSprite(21 - 9, 1)
  58.       set the member of sprite (21 - 9) to member "Or15HL"
  59.     22:
  60.       cursor([member "mousePointer", member "mousePointerMask"])
  61.       puppetSprite(22 - 9, 1)
  62.       set the member of sprite (22 - 9) to member "Or16HL"
  63.     23:
  64.       cursor([member "mousePointer", member "mousePointerMask"])
  65.       puppetSprite(23 - 9, 1)
  66.       set the member of sprite (23 - 9) to member "Or17HL"
  67.     24:
  68.       cursor([member "mousePointer", member "mousePointerMask"])
  69.       puppetSprite(24 - 9, 1)
  70.       set the member of sprite (24 - 9) to member "Or18HL"
  71.     25:
  72.       cursor([member "mousePointer", member "mousePointerMask"])
  73.       puppetSprite(25 - 9, 1)
  74.       set the member of sprite (25 - 9) to member "Or19HL"
  75.     otherwise:
  76.       initSprites()
  77.       go("OrdinateurS5")
  78.   end case
  79.   updateStage()
  80. end
  81.